00100	SECTION A;
00200	TOOT 0 10.9;
00300	P2 1 .03 .25;
00400	P3 1 C3 C6;
00500	P4 1 80 500;
00600	P5 .5 "F1"  .5 "F2";
00700	P6 F3; P7 F4; P8 F5; P9 F6;
00800	P10 .2; < LIMITING NUMBER FOR P2 RAND.
00900	P11 4 SUBN; <  CALL THE SUBROUTINE.  END RAND. AT 2".
01000	END;
01100	CLAR ; DUPL 1; END;
01200	BRIT ; DUPL 1; END;
01300	BUZZ ; DUPL 1; END;
01400	END SECTION;
01500	
01600	TOOT 4; P2 .15; P5 F1; P4 500; P11 0; END; <NO SUBR. CALLS
01700	CLAR 4; DUPL 1; END;
01800	BRIT 4; DUPL 1; END;
01900	BUZZ 4; DUPL 1; END;
02000	
02100	PLAY A 6;
02200	
02300	TOOT 6; P11 10.5  ALL SUBN; END;
02400	TOOT 10.5; P2 .5; P4 500; P5 F1; P11 0;END;
02500	CLAR 10.5; DUPL 1; END;
02600	BRIT 10.5; DUPL 1; END;
02700	BUZZ 10.5; DUPL 1; END;